/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / oobr / eif-ise-er.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 34 3a 35 34 3a 33 | 39 20 31 39 39 35 0a 3b | 14:54:3|9 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 65 78 |;; from |file /ex|
|00000060| 70 6f 72 74 2f 77 69 6c | 6c 6f 77 33 2f 78 65 6d |port/wil|low3/xem|
|00000070| 61 63 73 2d 31 39 2e 31 | 33 2d 72 65 6c 65 61 73 |acs-19.1|3-releas|
|00000080| 65 2f 65 64 69 74 6f 72 | 2f 6c 69 73 70 2f 6f 6f |e/editor|/lisp/oo|
|00000090| 62 72 2f 65 69 66 2d 69 | 73 65 2d 65 72 2e 65 6c |br/eif-i|se-er.el|
|000000a0| 0a 3b 3b 3b 20 65 6d 61 | 63 73 20 76 65 72 73 69 |.;;; ema|cs versi|
|000000b0| 6f 6e 20 31 39 2e 31 33 | 20 58 45 6d 61 63 73 20 |on 19.13| XEmacs |
|000000c0| 4c 75 63 69 64 2e 0a 3b | 3b 3b 20 62 79 74 65 63 |Lucid..;|;; bytec|
|000000d0| 6f 6d 70 20 76 65 72 73 | 69 6f 6e 20 32 2e 32 35 |omp vers|ion 2.25|
|000000e0| 3b 20 31 2d 53 65 70 2d | 39 34 2e 0a 3b 3b 3b 20 |; 1-Sep-|94..;;; |
|000000f0| 6f 70 74 69 6d 69 7a 61 | 74 69 6f 6e 20 69 73 20 |optimiza|tion is |
|00000100| 6f 6e 2e 0a 3b 3b 3b 20 | 74 68 69 73 20 66 69 6c |on..;;; |this fil|
|00000110| 65 20 75 73 65 73 20 6f | 70 63 6f 64 65 73 20 77 |e uses o|pcodes w|
|00000120| 68 69 63 68 20 64 6f 20 | 6e 6f 74 20 65 78 69 73 |hich do |not exis|
|00000130| 74 20 69 6e 20 45 6d 61 | 63 73 20 31 38 2e 0a 0a |t in Ema|cs 18...|
|00000140| 28 69 66 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(if (and| (boundp|
|00000150| 20 27 65 6d 61 63 73 2d | 76 65 72 73 69 6f 6e 29 | 'emacs-|version)|
|00000160| 0a 09 20 28 6f 72 20 28 | 61 6e 64 20 28 62 6f 75 |.. (or (|and (bou|
|00000170| 6e 64 70 20 27 65 70 6f | 63 68 3a 3a 76 65 72 73 |ndp 'epo|ch::vers|
|00000180| 69 6f 6e 29 20 65 70 6f | 63 68 3a 3a 76 65 72 73 |ion) epo|ch::vers|
|00000190| 69 6f 6e 29 0a 09 20 20 | 20 20 20 28 73 74 72 69 |ion)..  |   (stri|
|000001a0| 6e 67 2d 6c 65 73 73 70 | 20 65 6d 61 63 73 2d 76 |ng-lessp| emacs-v|
|000001b0| 65 72 73 69 6f 6e 20 22 | 31 39 22 29 29 29 0a 20 |ersion "|19"))). |
|000001c0| 20 20 20 28 65 72 72 6f | 72 20 22 54 68 69 73 20 |   (erro|r "This |
|000001d0| 66 69 6c 65 20 77 61 73 | 20 63 6f 6d 70 69 6c 65 |file was| compile|
|000001e0| 64 20 66 6f 72 20 45 6d | 61 63 73 20 31 39 2e 22 |d for Em|acs 19."|
|000001f0| 29 29 0a 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |))..(byt|e-code "|
|00000200| c0 c1 21 88 c0 c2 21 88 | c0 c3 21 88 c4 c5 c6 5c |..!...!.|..!....\|
|00000210| 22 88 c7 c8 21 ab 87 c9 | 0e 08 ca cb 23 88 cc 16 |"...!...|....#...|
|00000220| 0d c0 87 22 20 5b 72 65 | 71 75 69 72 65 20 62 72 |..." [re|quire br|
|00000230| 2d 6c 69 62 20 62 72 2d | 65 69 66 20 63 6f 6d 70 |-lib br-|eif comp|
|00000240| 69 6c 65 20 67 6c 6f 62 | 61 6c 2d 73 65 74 2d 6b |ile glob|al-set-k|
|00000250| 65 79 20 22 18 60 22 20 | 65 69 66 2d 69 73 65 2d |ey ".`" |eif-ise-|
|00000260| 6e 65 78 74 2d 65 72 72 | 6f 72 20 62 6f 75 6e 64 |next-err|or bound|
|00000270| 70 20 65 69 66 66 65 6c | 2d 6d 6f 64 65 2d 6d 61 |p eiffel|-mode-ma|
|00000280| 70 20 64 65 66 69 6e 65 | 2d 6b 65 79 20 22 03 21 |p define|-key ".!|
|00000290| 22 20 65 69 66 2d 65 63 | 20 22 5c 22 5c 5c 28 5b |" eif-ec| "\"\\([|
|000002a0| 5e 20 09 5d 2b 5c 5c 29 | 5c 22 2c 20 5c 5c 28 5b |^ .]+\\)|\", \\([|
|000002b0| 30 2d 39 5d 2b 5c 5c 29 | 3a 2e 2a 22 20 63 6f 6d |0-9]+\\)|:.*" com|
|000002c0| 70 69 6c 61 74 69 6f 6e | 2d 65 72 72 6f 72 2d 72 |pilation|-error-r|
|000002d0| 65 67 65 78 70 5d 20 34 | 29 0a 28 64 65 66 63 6f |egexp] 4|).(defco|
|000002e0| 6e 73 74 20 65 69 66 2d | 63 6f 6d 70 69 6c 65 2d |nst eif-|compile-|
|000002f0| 64 69 72 20 6e 69 6c 20 | 22 5c 0a 44 65 66 61 75 |dir nil |"\.Defau|
|00000300| 6c 74 20 64 69 72 65 63 | 74 6f 72 79 20 69 6e 20 |lt direc|tory in |
|00000310| 77 68 69 63 68 20 74 6f | 20 69 6e 76 6f 6b 65 20 |which to| invoke |
|00000320| 61 6e 20 45 69 66 66 65 | 6c 20 63 6f 6d 70 69 6c |an Eiffe|l compil|
|00000330| 65 20 63 6f 6d 6d 61 6e | 64 2e 22 29 0a 28 64 65 |e comman|d.").(de|
|00000340| 66 63 6f 6e 73 74 20 65 | 69 66 2d 63 6f 6d 70 69 |fconst e|if-compi|
|00000350| 6c 65 2d 63 6d 64 20 22 | 65 63 22 20 22 5c 0a 44 |le-cmd "|ec" "\.D|
|00000360| 65 66 61 75 6c 74 20 63 | 6f 6d 6d 61 6e 64 20 6e |efault c|ommand n|
|00000370| 61 6d 65 20 77 69 74 68 | 20 77 68 69 63 68 20 74 |ame with| which t|
|00000380| 6f 20 69 6e 76 6f 6b 65 | 20 74 68 65 20 45 69 66 |o invoke| the Eif|
|00000390| 66 65 6c 20 63 6f 6d 70 | 69 6c 65 72 2e 22 29 0a |fel comp|iler.").|
|000003a0| 28 66 73 65 74 20 27 65 | 69 66 2d 69 73 65 2d 6e |(fset 'e|if-ise-n|
|000003b0| 65 78 74 2d 65 72 72 6f | 72 20 23 5b 28 26 6f 70 |ext-erro|r #[(&op|
|000003c0| 74 69 6f 6e 61 6c 20 61 | 72 67 70 29 20 22 08 c1 |tional a|rgp) "..|
|000003d0| 3d ac 83 5c 6e ab 85 c3 | 20 88 c4 15 08 ac 8d 8a |=..\n...| .......|
|000003e0| c6 c7 21 88 c8 c9 21 88 | ca 20 88 29 08 40 89 1e |..!...!.|. .).@..|
|000003f0| 0b ac 96 cc 0e 0d 0e 0e | ab 8b cf 0e 0e 21 d0 3d |........|.....!.=|
|00000400| ab 83 d1 aa 81 d2 50 21 | 88 08 41 10 0e 0b 41 40 |......P!|..A...A@|
|00000410| ab 97 c6 d3 0e 0b 41 40 | 21 21 88 0e 0b 41 40 62 |......A@|!!...A@b|
|00000420| 88 0e 0b 41 40 c9 89 93 | 88 c1 1e 14 d5 d3 0e 0b |...A@...|........|
|00000430| 40 21 21 1e 16 d7 0e 16 | 0e 0b 40 5c 22 88 d8 0e |@!!.....|..@\"...|
|00000440| 16 0e 0b 40 5c 22 88 2a | 0e 0b 40 c9 89 93 29 87 |...@\".*|..@...).|
|00000450| 22 20 5b 63 6f 6d 70 69 | 6c 61 74 69 6f 6e 2d 65 |" [compi|lation-e|
|00000460| 72 72 6f 72 2d 6c 69 73 | 74 20 74 20 61 72 67 70 |rror-lis|t t argp|
|00000470| 20 63 6f 6d 70 69 6c 61 | 74 69 6f 6e 2d 66 6f 72 | compila|tion-for|
|00000480| 67 65 74 2d 65 72 72 6f | 72 73 20 31 20 63 6f 6d |get-erro|rs 1 com|
|00000490| 70 69 6c 61 74 69 6f 6e | 2d 70 61 72 73 69 6e 67 |pilation|-parsing|
|000004a0| 2d 65 6e 64 20 73 77 69 | 74 63 68 2d 74 6f 2d 62 |-end swi|tch-to-b|
|000004b0| 75 66 66 65 72 20 22 2a | 63 6f 6d 70 69 6c 61 74 |uffer "*|compilat|
|000004c0| 69 6f 6e 2a 22 20 73 65 | 74 2d 62 75 66 66 65 72 |ion*" se|t-buffer|
|000004d0| 2d 6d 6f 64 69 66 69 65 | 64 2d 70 20 6e 69 6c 20 |-modifie|d-p nil |
|000004e0| 65 69 66 2d 69 73 65 2d | 63 6f 6d 70 69 6c 61 74 |eif-ise-|compilat|
|000004f0| 69 6f 6e 2d 70 61 72 73 | 65 2d 65 72 72 6f 72 73 |ion-pars|e-errors|
|00000500| 20 6e 65 78 74 2d 65 72 | 72 6f 72 20 65 72 72 6f | next-er|ror erro|
|00000510| 72 20 63 6f 6d 70 69 6c | 61 74 69 6f 6e 2d 65 72 |r compil|ation-er|
|00000520| 72 6f 72 2d 6d 65 73 73 | 61 67 65 20 63 6f 6d 70 |ror-mess|age comp|
|00000530| 69 6c 61 74 69 6f 6e 2d | 70 72 6f 63 65 73 73 20 |ilation-|process |
|00000540| 70 72 6f 63 65 73 73 2d | 73 74 61 74 75 73 20 72 |process-|status r|
|00000550| 75 6e 20 22 20 79 65 74 | 22 20 22 22 20 6d 61 72 |un " yet|" "" mar|
|00000560| 6b 65 72 2d 62 75 66 66 | 65 72 20 70 6f 70 2d 75 |ker-buff|er pop-u|
|00000570| 70 2d 77 69 6e 64 6f 77 | 73 20 64 69 73 70 6c 61 |p-window|s displa|
|00000580| 79 2d 62 75 66 66 65 72 | 20 77 20 73 65 74 2d 77 |y-buffer| w set-w|
|00000590| 69 6e 64 6f 77 2d 70 6f | 69 6e 74 20 73 65 74 2d |indow-po|int set-|
|000005a0| 77 69 6e 64 6f 77 2d 73 | 74 61 72 74 5d 20 35 20 |window-s|tart] 5 |
|000005b0| 22 5c 0a 56 69 73 69 74 | 20 6e 65 78 74 20 63 6f |"\.Visit| next co|
|000005c0| 6d 70 69 6c 61 74 69 6f | 6e 20 65 72 72 6f 72 20 |mpilatio|n error |
|000005d0| 6d 65 73 73 61 67 65 20 | 61 6e 64 20 63 6f 72 72 |message |and corr|
|000005e0| 65 73 70 6f 6e 64 69 6e | 67 20 73 6f 75 72 63 65 |espondin|g source|
|000005f0| 20 63 6f 64 65 2e 0a 54 | 68 69 73 20 6f 70 65 72 | code..T|his oper|
|00000600| 61 74 65 73 20 6f 6e 20 | 74 68 65 20 6f 75 74 70 |ates on |the outp|
|00000610| 75 74 20 66 72 6f 6d 20 | 74 68 65 20 5c 5c 5b 63 |ut from |the \\[c|
|00000620| 6f 6d 70 69 6c 65 5d 20 | 63 6f 6d 6d 61 6e 64 2e |ompile] |command.|
|00000630| 0a 49 66 20 61 6c 6c 20 | 70 72 65 70 61 72 73 65 |.If all |preparse|
|00000640| 64 20 65 72 72 6f 72 20 | 6d 65 73 73 61 67 65 73 |d error |messages|
|00000650| 20 68 61 76 65 20 62 65 | 65 6e 20 70 72 6f 63 65 | have be|en proce|
|00000660| 73 73 65 64 2c 0a 74 68 | 65 20 65 72 72 6f 72 20 |ssed,.th|e error |
|00000670| 6d 65 73 73 61 67 65 20 | 62 75 66 66 65 72 20 69 |message |buffer i|
|00000680| 73 20 63 68 65 63 6b 65 | 64 20 66 6f 72 20 6e 65 |s checke|d for ne|
|00000690| 77 20 6f 6e 65 73 2e 0a | 41 20 6e 6f 6e 2d 6e 69 |w ones..|A non-ni|
|000006a0| 6c 20 61 72 67 75 6d 65 | 6e 74 20 28 70 72 65 66 |l argume|nt (pref|
|000006b0| 69 78 20 61 72 67 2c 20 | 69 66 20 69 6e 74 65 72 |ix arg, |if inter|
|000006c0| 61 63 74 69 76 65 29 0a | 6d 65 61 6e 73 20 72 65 |active).|means re|
|000006d0| 70 61 72 73 65 20 74 68 | 65 20 65 72 72 6f 72 20 |parse th|e error |
|000006e0| 6d 65 73 73 61 67 65 20 | 62 75 66 66 65 72 20 61 |message |buffer a|
|000006f0| 6e 64 20 73 74 61 72 74 | 20 61 74 20 74 68 65 20 |nd start| at the |
|00000700| 66 69 72 73 74 20 65 72 | 72 6f 72 2e 22 20 22 50 |first er|ror." "P|
|00000710| 22 5d 29 0a 28 66 73 65 | 74 20 27 65 69 66 2d 69 |"]).(fse|t 'eif-i|
|00000720| 73 65 2d 63 6f 6d 70 69 | 6c 61 74 69 6f 6e 2d 66 |se-compi|lation-f|
|00000730| 69 6c 65 6e 61 6d 65 20 | 23 5b 6e 69 6c 20 22 c0 |ilename |#[nil ".|
|00000740| c1 5c 6e 5c 22 ad 86 5c | 6e c3 94 c3 95 4f 87 22 |.\n\"..\|n....O."|
|00000750| 20 5b 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 22 | [string|-match "|
|00000760| 5e 2e 2a 5b 20 09 5d 2b | 5c 5c 28 5b 5e 20 09 5c |^.*[ .]+|\\([^ .\|
|00000770| 22 5d 2b 5c 5c 29 22 20 | 63 6f 6d 70 69 6c 65 2d |"]+\\)" |compile-|
|00000780| 63 6f 6d 6d 61 6e 64 20 | 31 5d 20 33 20 22 5c 0a |command |1] 3 "\.|
|00000790| 52 65 74 75 72 6e 20 61 | 20 73 74 72 69 6e 67 20 |Return a| string |
|000007a0| 77 68 69 63 68 20 69 73 | 20 74 68 65 20 6c 61 73 |which is| the las|
|000007b0| 74 20 66 69 6c 65 6e 61 | 6d 65 20 66 72 6f 6d 20 |t filena|me from |
|000007c0| 74 68 65 20 63 6f 6d 70 | 69 6c 61 74 69 6f 6e 20 |the comp|ilation |
|000007d0| 63 6f 6d 6d 61 6e 64 2e | 0a 49 67 6e 6f 72 65 20 |command.|.Ignore |
|000007e0| 71 75 6f 74 65 73 20 61 | 72 6f 75 6e 64 20 69 74 |quotes a|round it|
|000007f0| 2e 20 20 52 65 74 75 72 | 6e 20 6e 69 6c 20 69 66 |.  Retur|n nil if|
|00000800| 20 6e 6f 20 66 69 6c 65 | 6e 61 6d 65 20 77 61 73 | no file|name was|
|00000810| 20 67 69 76 65 6e 2e 22 | 5d 29 0a 28 66 73 65 74 | given."|]).(fset|
|00000820| 20 27 65 69 66 2d 69 73 | 65 2d 63 6f 6d 70 69 6c | 'eif-is|e-compil|
|00000830| 61 74 69 6f 6e 2d 70 61 | 72 73 65 2d 65 72 72 6f |ation-pa|rse-erro|
|00000840| 72 73 20 23 5b 6e 69 6c | 20 22 c0 11 c2 c3 21 88 |rs #[nil| "....!.|
|00000850| c0 89 89 1c 1d 1e 06 0e | 07 62 88 6f ab 83 c8 79 |........|.b.o...y|
|00000860| 88 c0 89 89 89 89 89 1e | 09 1e 5c 6e 1e 0b 1e 0c |........|..\n....|
|00000870| 1e 0d 1e 0e cf 0e 10 c0 | d1 23 83 d2 00 d2 c8 94 |........|.#......|
|00000880| c8 95 7b 21 16 0c d3 94 | d3 95 7b 97 16 0e d4 0e |..{!....|..{.....|
|00000890| 0e 21 89 16 0b ac a1 c2 | d5 21 88 d6 c8 21 88 d7 |.!......|.!...!..|
|000008a0| d8 21 88 c2 d9 21 88 d4 | 0e 0e 21 89 16 0b ac 88 |.!...!..|..!.....|
|000008b0| da db dc 0e 0e 5c 22 21 | 88 0e 0b 0d 9a ab 86 0e |.....\"!|........|
|000008c0| 0c 0c 55 ac d3 dd 79 88 | de 20 16 5c 6e 0e 0b 0d |..U...y.|. .\n...|
|000008d0| 9a ac 9d df 0e 0b 89 15 | 21 ad 91 e0 e1 21 ab 88 |........|!....!..|
|000008e0| 0e 21 0e 0b 21 71 aa 84 | e2 0e 0b 21 16 06 dd 14 |.!..!q..|...!....|
|000008f0| 0e 06 ab a5 8a 0e 06 71 | 88 0c dd 55 ab 85 d3 62 |.......q|...U...b|
|00000900| 88 d3 14 0e 0c 0c 5a 79 | 88 0e 0c 14 de 20 16 09 |......Zy|..... ..|
|00000910| 0e 5c 6e 0e 09 44 09 42 | 11 29 d3 79 88 82 29 00 |.\n..D.B|.).y..).|
|00000920| 2e 06 64 16 07 2b c2 e3 | 21 88 09 9f 89 11 87 22 |..d..+..|!......"|
|00000930| 20 5b 6e 69 6c 20 63 6f | 6d 70 69 6c 61 74 69 6f | [nil co|mpilatio|
|00000940| 6e 2d 65 72 72 6f 72 2d | 6c 69 73 74 20 6d 65 73 |n-error-|list mes|
|00000950| 73 61 67 65 20 22 50 61 | 72 73 69 6e 67 20 65 72 |sage "Pa|rsing er|
|00000960| 72 6f 72 20 6d 65 73 73 | 61 67 65 73 2e 2e 2e 22 |ror mess|ages..."|
|00000970| 20 6c 61 73 74 2d 6c 69 | 6e 65 6e 75 6d 20 6c 61 | last-li|nenum la|
|00000980| 73 74 2d 66 69 6c 65 6e | 61 6d 65 20 74 65 78 74 |st-filen|ame text|
|00000990| 2d 62 75 66 66 65 72 20 | 63 6f 6d 70 69 6c 61 74 |-buffer |compilat|
|000009a0| 69 6f 6e 2d 70 61 72 73 | 69 6e 67 2d 65 6e 64 20 |ion-pars|ing-end |
|000009b0| 32 20 74 65 78 74 2d 6d | 61 72 6b 65 72 20 65 72 |2 text-m|arker er|
|000009c0| 72 6f 72 2d 6d 61 72 6b | 65 72 20 66 69 6c 65 6e |ror-mark|er filen|
|000009d0| 61 6d 65 20 6c 69 6e 65 | 6e 75 6d 20 63 61 73 65 |ame line|num case|
|000009e0| 2d 66 6f 6c 64 2d 73 65 | 61 72 63 68 20 63 6c 61 |-fold-se|arch cla|
|000009f0| 73 73 2d 6e 61 6d 65 20 | 72 65 2d 73 65 61 72 63 |ss-name |re-searc|
|00000a00| 68 2d 66 6f 72 77 61 72 | 64 20 63 6f 6d 70 69 6c |h-forwar|d compil|
|00000a10| 61 74 69 6f 6e 2d 65 72 | 72 6f 72 2d 72 65 67 65 |ation-er|ror-rege|
|00000a20| 78 70 20 74 20 73 74 72 | 69 6e 67 2d 74 6f 2d 69 |xp t str|ing-to-i|
|00000a30| 6e 74 20 31 20 62 72 2d | 63 6c 61 73 73 2d 70 61 |nt 1 br-|class-pa|
|00000a40| 74 68 20 22 52 65 62 75 | 69 6c 64 69 6e 67 20 45 |th "Rebu|ilding E|
|00000a50| 69 66 66 65 6c 20 73 79 | 73 74 65 6d 20 63 6c 61 |iffel sy|stem cla|
|00000a60| 73 73 20 6c 6f 63 61 74 | 69 6f 6e 73 20 74 61 62 |ss locat|ions tab|
|00000a70| 6c 65 2e 2e 2e 22 20 73 | 69 74 2d 66 6f 72 20 63 |le..." s|it-for c|
|00000a80| 61 6c 6c 2d 69 6e 74 65 | 72 61 63 74 69 76 65 6c |all-inte|ractivel|
|00000a90| 79 20 62 72 2d 62 75 69 | 6c 64 2d 73 79 73 2d 63 |y br-bui|ld-sys-c|
|00000aa0| 6c 61 73 73 65 73 2d 68 | 74 61 62 6c 65 20 22 52 |lasses-h|table "R|
|00000ab0| 65 62 75 69 6c 64 69 6e | 67 20 45 69 66 66 65 6c |ebuildin|g Eiffel|
|00000ac0| 20 73 79 73 74 65 6d 20 | 63 6c 61 73 73 20 6c 6f | system |class lo|
|00000ad0| 63 61 74 69 6f 6e 73 20 | 74 61 62 6c 65 2e 2e 2e |cations |table...|
|00000ae0| 44 6f 6e 65 22 20 65 72 | 72 6f 72 20 66 6f 72 6d |Done" er|ror form|
|00000af0| 61 74 20 22 27 25 73 27 | 20 6e 6f 74 20 69 6e 20 |at "'%s'| not in |
|00000b00| 6c 6f 6f 6b 75 70 20 74 | 61 62 6c 65 2c 20 75 73 |lookup t|able, us|
|00000b10| 65 20 7b 4d 2d 78 20 62 | 72 2d 62 75 69 6c 64 2d |e {M-x b|r-build-|
|00000b20| 70 61 74 68 73 2d 68 74 | 61 62 6c 65 20 52 54 4e |paths-ht|able RTN|
|00000b30| 7d 20 74 6f 20 75 70 64 | 61 74 65 2e 22 20 30 20 |} to upd|ate." 0 |
|00000b40| 70 6f 69 6e 74 2d 6d 61 | 72 6b 65 72 20 66 69 6c |point-ma|rker fil|
|00000b50| 65 2d 65 78 69 73 74 73 | 2d 70 20 62 6f 75 6e 64 |e-exists|-p bound|
|00000b60| 70 20 62 72 2d 66 69 6e | 64 2d 66 69 6c 65 2d 6e |p br-fin|d-file-n|
|00000b70| 6f 73 65 6c 65 63 74 2d | 66 75 6e 63 74 69 6f 6e |oselect-|function|
|00000b80| 20 66 69 6e 64 2d 66 69 | 6c 65 2d 6e 6f 73 65 6c | find-fi|le-nosel|
|00000b90| 65 63 74 20 22 50 61 72 | 73 69 6e 67 20 65 72 72 |ect "Par|sing err|
|00000ba0| 6f 72 20 6d 65 73 73 61 | 67 65 73 2e 2e 2e 64 6f |or messa|ges...do|
|00000bb0| 6e 65 22 5d 20 37 20 22 | 5c 0a 50 61 72 73 65 20 |ne"] 7 "|\.Parse |
|00000bc0| 74 68 65 20 63 75 72 72 | 65 6e 74 20 62 75 66 66 |the curr|ent buff|
|00000bd0| 65 72 20 61 73 20 65 72 | 72 6f 72 20 6d 65 73 73 |er as er|ror mess|
|00000be0| 61 67 65 73 2e 0a 54 68 | 69 73 20 6d 61 6b 65 73 |ages..Th|is makes|
|00000bf0| 20 61 20 6c 69 73 74 20 | 6f 66 20 65 72 72 6f 72 | a list |of error|
|00000c00| 20 64 65 73 63 72 69 70 | 74 6f 72 73 2c 20 63 6f | descrip|tors, co|
|00000c10| 6d 70 69 6c 61 74 69 6f | 6e 2d 65 72 72 6f 72 2d |mpilatio|n-error-|
|00000c20| 6c 69 73 74 2e 20 20 46 | 6f 72 20 65 61 63 68 0a |list.  F|or each.|
|00000c30| 65 72 72 6f 72 20 6c 69 | 6e 65 2d 6e 75 6d 62 65 |error li|ne-numbe|
|00000c40| 72 20 69 6e 20 74 68 65 | 20 62 75 66 66 65 72 2c |r in the| buffer,|
|00000c50| 20 74 68 65 20 73 6f 75 | 72 63 65 20 66 69 6c 65 | the sou|rce file|
|00000c60| 20 69 73 20 72 65 61 64 | 20 69 6e 2c 20 61 6e 64 | is read| in, and|
|00000c70| 20 74 68 65 20 74 65 78 | 74 0a 6c 6f 63 61 74 69 | the tex|t.locati|
|00000c80| 6f 6e 20 69 73 20 73 61 | 76 65 64 20 69 6e 20 63 |on is sa|ved in c|
|00000c90| 6f 6d 70 69 6c 61 74 69 | 6f 6e 2d 65 72 72 6f 72 |ompilati|on-error|
|00000ca0| 2d 6c 69 73 74 2e 20 20 | 54 68 65 20 66 75 6e 63 |-list.  |The func|
|00000cb0| 74 69 6f 6e 20 6e 65 78 | 74 2d 65 72 72 6f 72 2c |tion nex|t-error,|
|00000cc0| 0a 61 73 73 69 67 6e 65 | 64 20 74 6f 20 5c 5c 5b |.assigne|d to \\[|
|00000cd0| 6e 65 78 74 2d 65 72 72 | 6f 72 5d 2c 20 74 61 6b |next-err|or], tak|
|00000ce0| 65 73 20 74 68 65 20 6e | 65 78 74 20 65 72 72 6f |es the n|ext erro|
|00000cf0| 72 20 6f 66 66 20 74 68 | 65 20 6c 69 73 74 20 61 |r off th|e list a|
|00000d00| 6e 64 20 76 69 73 69 74 | 73 20 69 74 73 0a 6c 6f |nd visit|s its.lo|
|00000d10| 63 61 74 69 6f 6e 2e 22 | 5d 29 0a 28 66 73 65 74 |cation."|]).(fset|
|00000d20| 20 27 73 74 72 32 61 72 | 67 76 20 23 5b 28 53 54 | 'str2ar|gv #[(ST|
|00000d30| 52 29 20 22 c0 c1 5c 6e | 5c 22 ad 91 c3 5c 6e 21 |R) "..\n|\"...\n!|
|00000d40| 1c c5 0c 40 21 c6 5c 6e | 0c 41 c7 4f 21 29 42 87 |...@!.\n|.A.O!)B.|
|00000d50| 22 20 5b 73 74 72 69 6e | 67 2d 6d 61 74 63 68 20 |" [strin|g-match |
|00000d60| 22 5b 5e 20 5d 22 20 53 | 54 52 20 72 65 61 64 2d |"[^ ]" S|TR read-|
|00000d70| 66 72 6f 6d 2d 73 74 72 | 69 6e 67 20 61 72 67 31 |from-str|ing arg1|
|00000d80| 20 70 72 69 6e 31 2d 74 | 6f 2d 73 74 72 69 6e 67 | prin1-t|o-string|
|00000d90| 20 73 74 72 32 61 72 67 | 76 20 6e 69 6c 5d 20 35 | str2arg|v nil] 5|
|00000da0| 5d 29 0a 28 64 65 66 76 | 61 72 20 65 69 66 2d 65 |]).(defv|ar eif-e|
|00000db0| 63 2d 61 72 67 73 20 22 | 22 20 22 5c 0a 44 65 66 |c-args "|" "\.Def|
|00000dc0| 61 75 6c 74 20 61 72 67 | 75 6d 65 6e 74 73 20 74 |ault arg|uments t|
|00000dd0| 6f 20 73 65 6e 64 20 74 | 6f 20 74 68 65 20 45 69 |o send t|o the Ei|
|00000de0| 66 66 65 6c 20 65 63 20 | 63 6c 61 73 73 20 63 6f |ffel ec |class co|
|00000df0| 6d 70 69 6c 65 72 2e 22 | 29 0a 28 66 73 65 74 20 |mpiler."|).(fset |
|00000e00| 27 65 69 66 2d 65 63 20 | 23 5b 28 41 52 47 20 26 |'eif-ec |#[(ARG &|
|00000e10| 6f 70 74 69 6f 6e 61 6c | 20 43 4d 44 20 44 49 52 |optional| CMD DIR|
|00000e20| 20 43 4c 41 53 53 2d 4e | 41 4d 45 29 20 22 08 ae | CLASS-N|AME) "..|
|00000e30| 8c c1 5c 6e 21 89 1b c4 | 0b 47 c5 5a 4f 29 10 0e |..\n!...|.G.ZO)..|
|00000e40| 06 ae 87 0e 07 ae 83 c8 | 5c 6e 21 16 09 ca cb 21 |........|\n!....!|
|00000e50| 1e 0c cd 0e 0c 21 1e 0e | 70 1e 0f 0e 0e ab 90 d0 |.....!..|p.......|
|00000e60| d1 21 ab 87 d2 0e 0e 21 | 88 aa 84 d3 d4 21 88 d5 |.!.....!|.....!..|
|00000e70| 20 ab 8f d0 d6 d7 5c 6e | 5c 22 21 ab 87 d8 20 88 | .....\n|\"!... .|
|00000e80| d9 da 21 88 0e 1b ab 87 | dc dd 0e 1e 5c 22 aa 81 |..!.....|....\"..|
|00000e90| da 16 1e 0e 0c 71 88 df | 20 88 e0 0e 09 21 88 0e |.....q..| ....!..|
|00000ea0| 21 ae 85 0e 5c 22 ae 81 | e3 0e 1b ab 87 d6 e4 0e |!...\"..|........|
|00000eb0| 1e 5c 22 aa 81 da d6 e4 | 0e 1b ab 86 0e 1b c4 55 |.\".....|.......U|
|00000ec0| ac 83 08 aa 81 da 5c 22 | e5 b1 04 88 0e 0f 71 88 |......\"|......q.|
|00000ed0| e6 0e 0c 21 88 e7 e8 e9 | ea 0e 1e 21 0e 1b ad 84 |...!....|...!....|
|00000ee0| 0e 1b c4 55 3f ad 82 08 | 43 23 21 2b 87 22 20 5b |...U?...|C#!+." [|
|00000ef0| 43 4c 41 53 53 2d 4e 41 | 4d 45 20 66 69 6c 65 2d |CLASS-NA|ME file-|
|00000f00| 6e 61 6d 65 2d 6e 6f 6e | 64 69 72 65 63 74 6f 72 |name-non|director|
|00000f10| 79 20 62 75 66 66 65 72 | 2d 66 69 6c 65 2d 6e 61 |y buffer|-file-na|
|00000f20| 6d 65 20 66 6e 20 30 20 | 32 20 44 49 52 20 65 69 |me fn 0 |2 DIR ei|
|00000f30| 66 2d 63 6f 6d 70 69 6c | 65 2d 64 69 72 20 66 69 |f-compil|e-dir fi|
|00000f40| 6c 65 2d 6e 61 6d 65 2d | 64 69 72 65 63 74 6f 72 |le-name-|director|
|00000f50| 79 20 65 63 2d 64 69 72 | 20 67 65 74 2d 62 75 66 |y ec-dir| get-buf|
|00000f60| 66 65 72 2d 63 72 65 61 | 74 65 20 22 2a 63 6f 6d |fer-crea|te "*com|
|00000f70| 70 69 6c 61 74 69 6f 6e | 2a 22 20 65 63 2d 6f 75 |pilation|*" ec-ou|
|00000f80| 74 70 75 74 20 67 65 74 | 2d 62 75 66 66 65 72 2d |tput get|-buffer-|
|00000f90| 70 72 6f 63 65 73 73 20 | 65 63 2d 70 72 6f 63 65 |process |ec-proce|
|00000fa0| 73 73 20 63 75 72 72 2d | 62 75 66 66 65 72 20 79 |ss curr-|buffer y|
|00000fb0| 2d 6f 72 2d 6e 2d 70 20 | 22 4b 69 6c 6c 20 63 75 |-or-n-p |"Kill cu|
|00000fc0| 72 72 65 6e 74 20 45 69 | 66 66 65 6c 20 63 6f 6d |rrent Ei|ffel com|
|00000fd0| 70 69 6c 61 74 69 6f 6e | 20 70 72 6f 63 65 73 73 |pilation| process|
|00000fe0| 3f 20 22 20 64 65 6c 65 | 74 65 2d 70 72 6f 63 65 |? " dele|te-proce|
|00000ff0| 73 73 20 65 72 72 6f 72 | 20 22 43 61 6e 27 74 20 |ss error| "Can't |
|00001000| 65 63 20 63 6f 6e 63 75 | 72 72 65 6e 74 6c 79 2e |ec concu|rrently.|
|00001010| 22 20 62 75 66 66 65 72 | 2d 6d 6f 64 69 66 69 65 |" buffer|-modifie|
|00001020| 64 2d 70 20 66 6f 72 6d | 61 74 20 22 53 61 76 65 |d-p form|at "Save|
|00001030| 20 66 69 6c 65 20 25 73 | 3f 20 22 20 73 61 76 65 | file %s|? " save|
|00001040| 2d 62 75 66 66 65 72 20 | 6d 65 73 73 61 67 65 20 |-buffer |message |
|00001050| 22 22 20 41 52 47 20 72 | 65 61 64 2d 73 74 72 69 |"" ARG r|ead-stri|
|00001060| 6e 67 20 22 65 63 20 61 | 72 67 73 3a 20 22 20 65 |ng "ec a|rgs: " e|
|00001070| 69 66 2d 65 63 2d 61 72 | 67 73 20 65 72 61 73 65 |if-ec-ar|gs erase|
|00001080| 2d 62 75 66 66 65 72 20 | 63 64 20 43 4d 44 20 65 |-buffer |cd CMD e|
|00001090| 69 66 2d 63 6f 6d 70 69 | 6c 65 2d 63 6d 64 20 22 |if-compi|le-cmd "|
|000010a0| 65 63 22 20 22 20 25 73 | 22 20 22 5c 6e 22 20 64 |ec" " %s|" "\n" d|
|000010b0| 69 73 70 6c 61 79 2d 62 | 75 66 66 65 72 20 65 76 |isplay-b|uffer ev|
|000010c0| 61 6c 20 61 70 70 65 6e | 64 20 28 73 74 61 72 74 |al appen|d (start|
|000010d0| 2d 70 72 6f 63 65 73 73 | 20 22 65 63 22 20 65 63 |-process| "ec" ec|
|000010e0| 2d 6f 75 74 70 75 74 20 | 28 6f 72 20 43 4d 44 20 |-output |(or CMD |
|000010f0| 65 69 66 2d 63 6f 6d 70 | 69 6c 65 2d 63 6d 64 20 |eif-comp|ile-cmd |
|00001100| 22 65 63 22 29 29 20 73 | 74 72 32 61 72 67 76 5d |"ec")) s|tr2argv]|
|00001110| 20 37 20 22 5c 0a 43 61 | 6c 6c 73 20 45 69 66 66 | 7 "\.Ca|lls Eiff|
|00001120| 65 6c 20 63 6f 6d 70 69 | 6c 65 72 2e 20 20 43 6f |el compi|ler.  Co|
|00001130| 6d 70 69 6c 65 20 77 69 | 74 68 20 6f 70 74 69 6f |mpile wi|th optio|
|00001140| 6e 61 6c 20 43 4d 44 2c | 20 27 65 69 66 2d 63 6f |nal CMD,| 'eif-co|
|00001150| 6d 70 69 6c 65 2d 63 6d | 64 27 20 6f 72 20 5c 22 |mpile-cm|d' or \"|
|00001160| 65 63 5c 22 2e 0a 42 79 | 20 64 65 66 61 75 6c 74 |ec\"..By| default|
|00001170| 2c 20 74 68 65 20 63 6f | 6d 70 69 6c 65 72 20 69 |, the co|mpiler i|
|00001180| 73 20 63 61 6c 6c 65 64 | 20 6f 6e 20 74 68 65 20 |s called| on the |
|00001190| 66 69 6c 65 20 61 73 73 | 6f 63 69 61 74 65 64 20 |file ass|ociated |
|000011a0| 77 69 74 68 20 74 68 65 | 20 63 75 72 72 65 6e 74 |with the| current|
|000011b0| 0a 62 75 66 66 65 72 2e | 20 20 57 69 74 68 20 6e |.buffer.|  With n|
|000011c0| 75 6d 65 72 69 63 20 61 | 72 67 75 6d 65 6e 74 20 |umeric a|rgument |
|000011d0| 30 20 70 72 6f 6d 70 74 | 73 20 66 6f 72 20 65 78 |0 prompt|s for ex|
|000011e0| 70 6c 69 63 69 74 20 63 | 6f 6d 6d 61 6e 64 20 6c |plicit c|ommand l|
|000011f0| 69 6e 65 20 61 72 67 75 | 6d 65 6e 74 73 2e 0a 4f |ine argu|ments..O|
|00001200| 74 68 65 72 20 6e 75 6d | 65 72 69 63 20 61 72 67 |ther num|eric arg|
|00001210| 75 6d 65 6e 74 73 20 61 | 6c 6c 6f 77 20 79 6f 75 |uments a|llow you|
|00001220| 20 74 6f 20 69 6e 73 65 | 72 74 20 6f 70 74 69 6f | to inse|rt optio|
|00001230| 6e 73 20 6f 72 20 66 75 | 72 74 68 65 72 20 63 6c |ns or fu|rther cl|
|00001240| 61 73 73 20 6e 61 6d 65 | 73 2e 22 20 22 50 22 5d |ass name|s." "P"]|
|00001250| 29 0a 28 66 73 65 74 20 | 27 65 69 66 2d 65 73 20 |).(fset |'eif-es |
|00001260| 23 5b 28 26 6f 70 74 69 | 6f 6e 61 6c 20 64 69 72 |#[(&opti|onal dir|
|00001270| 29 20 22 c0 c1 c2 0b c4 | 24 87 22 20 5b 65 69 66 |) ".....|$." [eif|
|00001280| 2d 65 63 20 6e 69 6c 20 | 22 65 73 22 20 64 69 72 |-ec nil |"es" dir|
|00001290| 20 22 22 5d 20 35 20 22 | 5c 0a 43 6f 6d 70 69 6c | ""] 5 "|\.Compil|
|000012a0| 65 20 45 69 66 66 65 6c | 20 73 79 73 74 65 6d 20 |e Eiffel| system |
|000012b0| 77 69 74 68 20 65 73 2e | 22 20 6e 69 6c 5d 29 0a |with es.|" nil]).|
|000012c0| 28 70 72 6f 76 69 64 65 | 20 27 65 69 66 2d 69 73 |(provide| 'eif-is|
|000012d0| 65 2d 65 72 29 0a       |                         |e-er).  |        |
+--------+-------------------------+-------------------------+--------+--------+